   BirthStones = {'Garnet', 'Amethyst', 'Aquamarine', ...
       'Diamond', 'Emerald', 'Pearl', 'Ruby', 'Peridot', ...
       'Sapphire', 'Opal', 'Topaz', 'Turqouze'};
   OtherStones = {'Agate', 'Malachite', 'Jasper', 'Hematite'};

   hp = lheap_new; % ??????? ????? ????
   for i = 1:length(BirthStones)
       hp = lheap_put(hp, BirthStones{i}, i); % ???????? ??????
   end
   lheap_graph(hp) % ??????????? ???????????. ??. ???. \ref{stones1}
   pause
 
   hp = lheap_delmin(hp); % ??????? ??????? ? ??????????? ?????
   lheap_graph(hp) % ??????????? ???????????. ??. ???. \ref{stones2}
   pause
 
   hp2 = lheap_new; % ??????? ????? ????
   for i = 1:length(OtherStones)
       hp2 = lheap_put(hp2, OtherStones{i}, i); % ???????? ??????
   end
   lheap_graph(hp2) % ??????????? ???????????. ??. ???. \ref{stones3}
   pause
 
   hp = lheap_merge(hp, hp2); % ??????? ????. ????? ??????? $hp2$ ?????
   lheap_graph(hp) % ??????????? ???????????. ??. ???. \ref{stones4}
 
   hp = lheap_free(hp); % ??????????? ??????
